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TY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 


CT: 
Create new root bucket for index file organization 


ENVIRONMENT: 


VAX/VMS OPERATING SYSTEM 


Christian Saether CREATION DATE: 8-AUG-78 20:30 


ed by: 


v03-005 Rasen Ron Schaefer 30-Mar-1984 
Fix STV value on error paths for RMS$_RPL and "RMSS WPL errors. 


v03-004 swag f Maria del C. Nasr 31-Mar-1983 
More Linkages reorganization. 


v03-003 MCNO002 Maria del C. Nasr 22-Feb-1983 
Reorganize Linkages 


v03-002 kB1T0231 Keith B. Thompson 23-Aug-1982 


Vo 
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; es 2 ! Reorganize psects : 
; 60 1! v03-001 MCNO001 Maria del C. Nasr 24-Mar-1982 3 
3 2 ! Use macro to compute key buffer address. : 
; © i 1! v02-00 TMK0001 Todd M. Katz 01-Feb-1982 3 
>; 66 4 1! Take out all references to rear-end truncation. Support for F 
; 665 $ 1! rear end truncation of prolog 3 compressed index keys does : 
: 66 ! not require any modification to the routines in this module. : 
: 68 068 1 | v02=007 PSK0003 P knibbe 16-Nov-1981 | : 
$ +4 H ! } Add support for compressed indexes. : 
; a 71 43 v02=006 PsK0002 P knibbe 26-0¢t=1981 | 
3 Lf: Ors ,: Fix problem with BKT_ADDR not being CURBDB : 
3 7 8 : } for RECORD_SIZE. ; 
c< 7 075 1! v02-005 PSK0001 P Knibbe 09-Aug-1981 3 
g 6 Bae : Add support for prologue three files. 3 
s Bore 1! V02-004 REFORMAT C Saether 01-Aug-1980 22:32 3 
: 79 0079 1! 3 
; 0080 1! 3 
; 81 0081 1 ! REVISION HISTORY: F 
3 Hf Boss 1! 3 
s; 86 B08 1! Wendy Koenig, 24-0CT-78 14:03 3 
; rf Boa : : 0002 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 3 
; & 0086 ° ! Wendy Koenig 26-JAN-79 9:19 | 3 
; «87 0087 1: 0003 = GET RID OF SETTING VALID : 
; 88 0088 1! F 
ee -)) 0089 1 !eeeee 3 
; 0090 1 F 
; Wi 0091 1 LIBRARY 'RMSLIB:RMS'; 3 
3 4 454 1 3 
3 9 009 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 3 
; 96 3136 1 3 
s 159 1! define default psects for code 3 
; He 1! ; 
: 97 161 1 PSECT 3 
: 98 8186 1 CODE = RMSRMS3(PSECT_ATTR), 3 
g 99 Hh 1 PLIT = RMSRMSS(PSECT_ATTR); 3 
: 100 164 1 3 
; 6101 313 1 ! Linkages 3 
3 4 196 1! 3 
; 10 167 1 LINKAGE ; 
; 104 168 1 L_CHKSUM, : 
: 105 169 1 L_PRESERVE1 3 
> 106 170 1 L“RABREG_4567, | : 
: 107 171 «#1 L RABRE G28. 3 
; 108 176 1 LRABRES.6 F j 
: 109 173 «1 L_RABREG 7, 3 
; 110 174 «1 L-RELEASE; 3 
s S39 175 «#1 : 
3 6 176 1! : 3 
r 69y 177 1°! External Routines : 
; 116 178 1! : 
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: 179 «1 

; 180 1 EXTERNAL ROUT INE 

: 181 1 RMSMAK_IDX_REC : RLSRABREG_67 NOVALUE, 

: 1 ‘ 1 SMAKSUM : RLSCHKSUM 

: 1 1 RMSMOVE : sap ht a ey 1 

: 184 1 RMSRE CORD SIZE : RL$RAB 6? 

: 185 1 RMSRELEASE : RLSRETE ASE ADBRESSING _MODE( GENERAL ), 
: 196 1 RMSKEY_DESC : RLSRABREG 7 

: 0187 RMS INS REC : RLSRABREG~6?; 
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! 
GLOBAL ROUTINE RMSNEW_ROOT : RLSRABREG_4567 NOVALUE = 


144 
' 
! RMSNEW_ROOT 

Create new record and high key record for new root bucket. 


CALLING SEQUENCE: 
RMSNEW_ROOT() 


INPUT PARAMETERS: 
NONE 
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IMPLICIT INPUTS: 
BKT_ADDR = address of new root bucket buffer 


OUTPUT PARAMETERS: 
NONE 


PROPRITOTOROPURD 2 2 SS 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
COMM 
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DBCBDBSL_VBNI; 
BKT-ADDREBKTS$B-LEVEL] = .BKT_ADDRCBRTS$B_LEVEL) + 1; 
BKT~ADDREBKT$V~LASTBKT 


BKT“ADDREBKTSV-ROOTBKT) = 
RECCADDR = .BKT ADDR + BK 

IRABLIRBSL_LST_REC) = .REC_ADDR; 

IRAB CIRBSL_MIDX_TMP1) = .IRAB CIRBSL_VBN_LEFT); 
RMSMAK_1DX_REC(.8KT_ADDR); 


BKT_ADDR(BKT$W_FREESPACE] = . EC_ADDR - .BKT_ADDR; 
REC-ADDR = .IRABCIRBSL_LST_ REC); 
IRABCIRB$W_POS_INS] = BKTSC_OVERHDSZ; 
IRABLIRB$B_SPL~BITS) = 0; 

IRABLIRBS$L-REC~COUNT) = 0; 
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024 OCAL 
4 TEMP_SIZE, | 
4 SAVE ~BDB; 
5 5 SAVE_BDB = .IRAB CIRBSL CURBDB); 
88 ; IRAB-CIRB$L_CURBDB) = .TRAB CIRBSL_NXTBOB); 
IF .IDX_DFN CIDX$V_IDX_COMPR 
1 5 THEN 
é 025 BEGIN 
025 
é $58 
5 KEYLEN = 0,0,8,0 %, 
4 025 COMPR = 0.8.8.0 %; 
7 026 
8 6 LOCAL 
9 6 KEYBUF : REF BBLOCK; 


KEYBUF = KEYBUF _ADDR(2); 


RMSMOVE (.IDX_DFN CIDX$B_KEYSZ], .KEYBUF, .KEYBUF + 2); 
KEYBUF CKEYLEN) = .IDX_DFN CIDX$B_KEYSZ);: 
Ke yeur COMPR] = 0; 
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TEMP_SIZE = RMSRECORD_SIZE(); 
IF NOT RMSINS_REC(.BKT_ADDR, .TEMP_SIZE) 
BUG_CHECK; 


IRAB CIRBSL_CURBDB) = .SAVE_BDB; 
END; ! Of local definition of temp_size and save_bdb 


[RABLIROT.VON_LEFTS = .BDBCBDBS$L_VBN); 
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-IDENT \V04-000\ 
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RN RMSMAK_IDX_REC, RMSMAKS 
-EXTRN RMSMOVE, RASRECORD_SIZE 
: RMSRELEASE, RMSKEY DESC 
SEXTRN RMSINS_REC, RMSBUG3 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


UM 


“ 
Bee Oe Se Oe Se Se Se Se Se Se he Be Se Se Oe Se Se Se Se Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se SH Se Se Se Se ee Beas 


R ; 0189 
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GLOBAL ROUTINE RMSUPD_PLG : RLSRABREG_7 = 
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FUNCTIONAL DESCRIPTION: 
Update prologue to reflect new root level and root vbn 


CALLING SEQUENCE: 
RMSUPD_PLG () 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
success 
tre - if rootlevel attempts to go beyond 255 
wol = prologue write error 


SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
COMMON_RAB_STR, 
R_1DX_BFN_STR; 
GLOBAL REGISTER 
R_BDB_STR; 
LOCAL 
STATUS, 
KEY : REF BBLOCK; 
set search and cache Aye to force read with lock of prologue 


IRABCIRB$V_NEW IDX) = 
IRABCIRB$B_ -titnercgs) = *CSHSM LOCK; 


RETURN_ON_ERROR (RMSKEY_DESC(.1IDX_DFNCIDX$B_KEYREFJ)); 


BDB = .IRABCIRBSL LOCK 3083; 
IRABCIRGSL_ LOCK_8DB) 
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KEY = (.IDX_DFNCIDXSB_KEYREF] = 1) MOD 5; 


KEY = .KEY*(KEYSC_BLN + itie SPARE); 
KEY = .KEY + .BDBCBDBSL_ADDR 


update level number and root vbn on the disk 
KEYCKEY$B_ROOTLEV] = .KEYCKEY$B_ROOTLEV] + 1; 
IF_.KEYCKEY$B_ROOTLEV] EQL 0 
THEN 

BEGIN 

RMSRELEASE (0); 

RETURN RMSERR(TRE); 

END; 
KEYCKEYSL_ROOTVBN] = .IRABCIRBS$L_VBN_LEFTI; 
recalculate checksum 


RMSMAKSUN(. peg eogs. -ADDRI); 
BOBCBDBS$V_ DRT) = 


force write of Be vm 

STATUS = RMSRELEASE(RLSSM_WRT_THRU); 
IF NOT .STATUS 

THEN 


BEGIN 
i. CRABSL_STV] EQL 0 


RAB CRABSL STV] = ~STATUS OR 1°16; 

RETURN RMSERR(OPL); 

END; 
! ewes ned has been updated successfully so now udpate in core index 
descriptor 
ix _DFNCIDX$B_ROOTLEV] 
IDX" DFNCIDX$L_ROOTVBNJ 
RETORN RMSSUCTSUC); 


X_DFNCIDX$B_ROOTL VI * T% 
ABCIRBSL_VBA_LEF TI; 
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7E 21 A? 9A OOOOA MOVZBL 33(IDX_DFN), -(SP) 
00006 30 O000E BSBW = RMSKEYDESC 
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Library Statistics 


; 277 code 4 0 data bytes 
; Elapsed Time: 


; 00:1 
3; Lines/CPU Min: 692" 
3 Lexemes/CPU-Min: 2080 
; ponery 2 Used: 84 pages 
; Compilation Complete 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:CRMS.SRC RMSROOT.B32; 1° 


; saccsnas F7EG0(8 coeeesce Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 72 2 154 00:00.3 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3ROOT/OBJ=OBJ$:RM3ROOT MSRC$:RM3ROOT/UPDATE=(ENH$:RM3ROOT) 
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